app ProPoc
enda

proc procal:

rem CALENDAR V1.2 : defines holidays for PROPOC. You may want to modify this
rem file in regard to your national and local holidays.

rem This file differs from Version 1.1

rem The following lines define fix and variable holidays. These holidays
rem     will then appear in the holiday list in the Preferences function.
rem     If you miss a local holiday in that list, define it here.
rem     Up to 30 public holidays can be defined.
rem     All holidays are based on the Gregorian calendar, however, holidays
rem     that are based on Eastern can be defined as well.

rem     holinam$        up to 15 character long name

rem     holidat&        >= 0 : base date of the holiday
rem                            the year can be any year between 1970 and 2037 and is ignored.
rem                     -1   : the holiday is based on eastern

rem     The following modifications can be applied:

rem     if holidat& >= 0 :

rem     holiwd%         0         no modification
rem                     1...7     Monday,...,Sunday at or following date
rem                     -1...-7   Monday,...,Sunday at or preceding date

rem     if holidat& = -1

rem     holiwd%                   days before or after Eastern

rem     The resulting date from all these modifications must be in the same year
rem     as the base date.

rem Examples:

rem     Whitsunday:
rem             holidat = -1     = based on Eastern
rem             holidw = 49      = 49 days after Easter sunday


rem     Australia Day:
rem             holidat = 26.1.  = base date
rem             holidw  = 1      = first Monday at or following 26.1.

rem     HenleyOnTodd:
rem             holidat = 31.8.  = last day of August
rem             holidw  = -6     = Saturday at or preceding that date = last Saturday in August


rem     Installation:
rem     -------------
rem      Modify this file, then translate it.
rem      Then move it from \APP\ to \APP\PROPOC\ on the disc where PROPOC is installed,
rem      replacing the old version of PROCAL.OPA.
rem      Then start PROPOC, select the calendar function via PSION-Q and activate
rem      the holidays you want.


	holinam$(1) = "NewYear" :       holidat&(1)  = days(1,1,1970)
	holinam$(2) = "GoodFriday" :    holidat&(2)  = -1 : holiwd%(2) =  -2
	holinam$(3) = "EasterSaturday" :holidat&(3)  = -1 : holiwd%(3) =  -1
	holinam$(4) = "EasterSunday" :  holidat&(4)  = -1
	holinam$(5) = "EasterMonday" :  holidat&(5)  = -1 : holiwd%(5) = 1
	holinam$(6) = "EasterTuesday" : holidat&(6)  = -1 : holiwd%(6) = 2
	holinam$(7) = "LabourDay" :     holidat&(7)  = days(1,5,1970)
	holinam$(8) = "AscensionDay" :  holidat&(8)  = -1 : holiwd%(8) =  40
	holinam$(9) = "Whitsunday" :    holidat&(9)  = -1 : holiwd%(9) =  49
	holinam$(10) = "WhitMonday" :   holidat&(10) = -1 : holiwd%(10) = 50
	holinam$(11) = "ChristmasEve" : holidat&(11) = days(24,12,1970)
	holinam$(12) = "ChristmasDay" : holidat&(12) = days(25,12,1970)
	holinam$(13) = "BoxingDay" :    holidat&(13) = days(26,12,1970)
	holinam$(14) = "NewYearsEve" :  holidat&(14) = days(31,12,1970)
	holinam$(15) = "AustraliaDay" : holidat&(15) = days(26,1,1970) : holiwd%(15) = 1
	holinam$(16) = "AnzacDay" :     holidat&(16) = days(25,4,1970)
	holinam$(17) = "HenleyOnTodd" : holidat&(17) = days(31,8,1970) : holiwd%(17) = -6
endp